home *** CD-ROM | disk | FTP | other *** search
-
- rem
- rem This program displays memory available along with some sparkle.
- rem
-
- rem windows size 35,13,47,18
-
- basey=12
- basex=34
-
- ot=0
- 100
- a$=inkey$
- if a$<>"" then stop
- t=freemem
- if t<>ot then
- color 0,7
- locate basey+1,basex+2
- print freemem
- ot=t
- end if
- 200
- x=rnd
- x=int(x*13)
- y=rnd
- y=int(y*5)
- x=x+1
- y=y+1
- if y=1 and (x>2 or x<11) then goto 200
- c=rnd
- c=int(c*16)
- color c,0
- locate basey+y,basex+x
- print chr$(219);
- goto 100
-
-
-